object Sieve: TSieve Left = 247 Top = 174 ActiveControl = Run BorderStyle = bsDialog Caption = 'Delphi' ClientHeight = 198 ClientWidth = 336 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter Visible = True TextHeight = 16 object Label1: TLabel Left = 32 Top = 40 Width = 261 Height = 16 Caption = 'Sieve of Eratosthenes Performance Test' end object Label2: TLabel Left = 160 Top = 80 Width = 117 Height = 16 Caption = 'Cycles per Minute' end object CyclesPerMinute: TLabel Left = 132 Top = 80 Width = 8 Height = 16 Alignment = taRightJustify Caption = '0' end object Run: TButton Left = 48 Top = 128 Width = 89 Height = 33 Caption = '&Run' ModalResult = 1 TabOrder = 0 OnClick = RunClick end object Exit: TButton Left = 192 Top = 128 Width = 89 Height = 33 Cancel = True Caption = '&Exit' ModalResult = 2 TabOrder = 1 OnClick = ExitClick end object DdeServerItem1: TDdeServerItem ServerConv = DPSIEVE Left = 90 Top = 5 end object DPSIEVE: TDdeServerConv OnOpen = DDEOpen Left = 136 Top = 8 end end